(display "\n========================================\n")
(define (last-pair items)
    (define (iter items cur)
        (if (null? items)
            cur
            (iter (cdr items) (car items))))
    (iter items (car items)))

(display (last-pair (list 23 72 149 34)))

(display "\n========================================\n")
